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The imagination of a child 
can see further than the 

sharpest eye 



ABCDEF 




But to see into the future shell need more than 
imagination; she'll need skills and knowledge 



at 

The Family Computer Center 

We Offer: 

COMPUTER SUPPORT SERVICES® 

• Free Introductory Training 

• Hotline Service 

• Reduced Cost Extended Warranty 

• Technical Library 

• Trade Up Assistance 



Pay our everyday low price complete with 

Computer Support Services® 

or 

Present the lowest advertised price* for 
any computer listed below and we'll match 
it when you pay $25 for Computw Sup- 
port Services® 

ATARI 400, ATARI 800, COMMODORE VIC 20, 
TIMEX 1000, TEXAS INSTRUMENTS TI99/4A 

' Must show loccil newspaper advertisement dated 7 days prior to be 
eligible. Oiler Good Thru October 31 , 1982. 



Turn Your Child's Imagination Into Creative Reality 

THE FAMILY COMPUTER CENTER 



at 



3895 W. 12 Mile Rd., Berkley, 4 Blocks E. of GrMnfleM 546-81 14 Hours: Mon.-Fri. 10 a.m.-8 p.m., Sat. 10 a.m.-5 p.m., Sun. 1 p.m.-5 p.m. 



IlStEXFElStSIVE VOICE 



by 

Ed Stewart 
11025 Sagebrush Ave 
Uniofitiiitffi Ohio 44685 

(Note: This article will appear in a sowewhat different 
fofM in a futirt issue of ANTIC fiagai^« It not 
reprodiced or reprinted without the expressed permission 
of both the Author and iMTIC* - The Editor*) 



For about ten to fifteen dollars you can make 
your ATARI computer speak* In fact you can 
make it whistle* hum* sing or curse* You can 
save the speech on a disk for posterity and play 
it back anytiine you like* Sound too good to be 
true? Wellf there are some limitations to this 
technique but for the most part it works very 
well* I've been playtag around with it for some 
time and decided to share it with other ATARI 
fans* 

Let me start by telling you that I am no 
hardware expert* I had been looking for an A/D 
device for the ATARI and discovered that the 
ATARI has a built in A/D converter* In fact it 
has 8 of these devices - the ports for the paddle 
controllers* This led me to an article in the 
April 1980 issue of BYTE titled "Apple Audio 
Processing" by Mark Cross* In this article MR* 
Cross desaibed a circuit he used to input audio 
data to an Apple computer* The four game paddle 
inputs on the APPLE are similar to the ATARI 
paddte ports« They are both A/D converters 
which generate a count in response to a circuit 
resistance* The ATARI paddle ports are 
actually potentiometers (variable resistors) 
whose resistance changes as the paddle is 
rotated* If this resistance is changed fast 
enough and if it has a direct relationship to the 
sound waves produced by speech then we can 
read the "paddle" values and store the numbers 
related to the input speech patterns* 

The simple curcuit presented by Mr* Cross 
converts the voltage produaid by a microphone 
into a variable resistance which is read by the 
computer* This number is then saved and sent 
to the TV speaker to produce a voltage whic is 
in direct proportion to the paddle resistance* 
The resylt is recognizable reproduction of 



whatever sounds are uttered through the 
microphone* 

ATARI HARDWARE 

A 9-pin female connector is needed to plug 
into the joystick/paddle port* APX-9001 is a 
good plug and it sells for $6*25* The software 
presented here requires that this plug go into 
the 3rd port from the left* A description of the 
controller port pins can be found in section III 
of tlie ATARI Hardware Manual* Following is a 
brief description of the cdnsole end (male)} 
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joi^tick input 
POTB 
trigger 
+5 Volts 
Ground 
POT A 



A double stranded insulated wire about two 
to three feet long should be soldered to your 
female plug with one wire to pin 9 and the other 
to pin 7 l-^SVU The other end of the double wire 
will enter into the circuit described by Mr Cross* 

The POKEY chip is responsible for 
converting the POT resistances into numbers* 
The conversion technique used is called a 
voltage**to**fre«iuency conversion and is most 
noted for it's inexpensive cost and relative 
inaccuracy* This inaccuracy is recognized in the 
associated speaker output as noise and hiss 
although most of the original sound remains 
intact* The POKEY normally requires 228 TV 
scan lines to read the POT* The number which is 
produced by POKEY is actually a count of the 
number of scan lines it took to charge a 
capacitor located in POKEY* If there is little 
resistance (paddle knob turned right) the 
capacitor charges in fewer scan lines and the 
resultant number is smaller* A fast POT scan 
mode is available which causes the capacitors to 
charge up in only two scan lines* This fast POT 
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scan is what we use to read the values from the 
microphone because the values must be read 
thousands of times per second and ttie normal 
POT scan mode is much too slowt 

OTHER HARDWARE 

The foUoviring items are needed to construct 
the dra^t in figure 1! 



1 moving coil type microphone found in cassette 

recorders 

i OJ uF nonpolarized capadtc^r 
i NPN transistor 2112222 

1 2M Ohm potentiometer 
1 lOOK fixed resistor 



The small AC current generated through the 
microphone causes the bas« current to change 
through the transistor* This in turn changes the 
paddles effective resistance* The 
potentiometer is used to "^tune" the circuit 
during program execution* After building this 
circuit and ronnecting it to the female port 
connector you are ready to talk to your computert 

VERTICAL BLANK AND DMA 

Every 60th of a second whatever program 
that is executing in your ATARI computer is 
interrupted by the operating system to perform 
miscellaneous housekeeping functions* The 
nature of converting data through the 
microphone requires that this interruption not 
occur ♦ IF the vertical blank process were not 
disabled the speech would be unacceptably 
choppy* The ANTIC chip is cdntinuously 
fetching screen data from RAM and displaying it 
on the TV screen* This process is called DMA* 
This DMA procsess is also not accef^table during 
operation of the speech because it slows down 
the CPU considerably* There is also a period of 
time when the DMA does not occur (during 
vertical blank) and this also would cause an 
unpredictably choppy sound* The program 
sample provided turns both DMA and vertical 
blank exits off during sound input and output 
processing* 

EXECUTING THE .PR0Q{iA|4 
The sample program will display the following 

menu: 



1 TALK A BIT 

2 PLAY BACK THE BIT 

3 TALK A LOT 

4 PRINT SUMMARY 

5 PRINT THE NUMBERS 

6 SAVE THE TALK 

7 RESTORE THE TALK 



After entering the MENU number the 
program will ask* 

WHAT SAMPLE SPEED? 

The sample speed can be from 1-255 and 
causes slower sampling during creation and 
slower playback with higher numbers* 

1 TALK A BIT 

After entering the sample speed press the 
START key* The screen will black out and you 
will have about 7 seconds of speech* You will 
need to adjust the potentiometer to get the best 
quality speech at this point* With a sample 
speed of 1 the sampling rate is about 4500 
samples per second* Increasing the sample 
speed nufTriber will increase the speech duration^ 
but will also decrease the quality of the 
produced sound* The RAM buffer for the speech 
is i4K bytes and resides from 16K-32K in your 
machine* You must therefore have at least 40K 
RAM to run this pogram with no alterations* 

2 PLAY BACK THE BIT 

This will play back whatever is in the RAM 
buffer* Playing back with a sample speed of 1 is 
at least ten times faster than Chip and Dale* 

3 TALK A LOT 

This is the same as talk a bit except thmt 
you can talk indefinitely and have the speech 
heard through the TV speaker* Press SYSTEM 
RESET to get out of this* 

4 PRINT SUMMARY 

Kill cause a count of each of the numbers 
found in the 16K buffer to be printer* 

•-< ^ 

5 PRINT THE NUMBERS 
Kill print all 16K worth of digitized speech* 



(contimied) 



lyt^^^C^S* November 1982 



6 SAVE A TALK 



PROGRAMMER WANTED 



Will cause the i6K buffer to be saved to the 
specified filet 

7 RESTORE A TALK 

Will cause a saved 16K buffer to be restored 
to RAMf You can then use MENU item 2 to play 
back the restored speech* 

COMPRESSION 

The number coming from the POT controller 
is 8 bits and the number sefvt to the TV speaker 
is 4 bits* This program has therefore packed 
Iwo input voltages into a single byte in the RAM 
buffer* Other aiir^iression techniques such as 
compression of like characters and Hamming 
Codes would have to be implemented if this 
method of generating speech were to be fully 
implemented* 

ATARI D/A CONVERTER 

The ATARI computer has built into it a 4 bit 
D/A converter for each of the four audio output 
voices* By setting the proper switch this 
program has used audio channel number one in 
this mcKie* This in no way affects what is 
happening in the other three voices* Setting 
address $D201 to a *1X causes the X to be 
output to the TV speaker as a voltage* X can be 
a number from zero to fifteen* Each different X 
sent to this address causes the TV speaker cone 
to be moved in or out* If these X's are sent 
fast enough to *D201 then the speaker cone 
moves very fast and we have sound at 
frequencies we can hdar* This is exactly what 
our program does with it's digitized input* 

CONCLUSION 

This technique is quite inexpensive and 
gives one a taste of the machine #nd it's 
capabilities and limitations* It is fairly easy to 
implement and the results are reasonably 
satisfactory* However if excellent speech is 
desired it is necsessary to obtain a high quality 
A/D converter for accurate digitization* To the 
best of my knowledge there is no commercially 
available A/D for the ATARI computer yet* 
When this item becomes available you will have 
a head start with the experience you may have 
gained usmg the technique outlined Iwrm and you 
may more thoroughly understand the workings of 
your ATARI computer* 



ATARI programmer wanted 
must have samples 



CONTACT 



John Victor 




Program Design, Inc. 
Department CA 
11 Idar Court 
Greenwich, CT 06830 

203-661-8799 



NEW FOR YOUR ATARI unicorn software 

= P.O. BOX 452 

ALLEN PARK, MI 48101 
Phone No. 388-4732 



32/K DISK 16/K CAS. 

DEALER INQUIRIES 



WELCOME 



ATAPI 1$ a trademark of ATARI. INC. 
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ATARI VOICE I/O 
ASSEMBLER SOURCE 

10 .OPT USTdlOEJECT 
20 #=*600 

30 PLA PULL OFF DUMMY ARG COUNT 
40 LDA#«08 

50 STA fDOlF INIT SWITCHES 

60 Ml LDA *D01F GET VALUE 

70 AND *»01 ?START PRESSED 

80 BNE Ml NOT YES 

90 LDY #$FF DELAY 

0100 M2 LDX *«FF SOME 

0110 JSR DEL GO LOOP 

0120 DEY 

0130 BNEM2 

0140 LDA #*08 RESET 

0150 ST A $D01F START SWITCH 

0160 LDX 208 GET FARM 

0170 CPX #0 9PLAYBACK 

0180 BNENPNO 

0190 JMP PB GO PLAY BACK SOUND 

0200 NP LDA #0 

0210 STA *D400 KILL DMA 

0220 STA iD4aE KILL VBI 

0230 MD STA $D40A WSYNC 

0240 STA $D40A WSYNC 

02S0 DONE LDX 207 

0260 JSR DEL GO WAIT IF NEED BE 

0270 LDA *D204 GET INPUT BYTE 

0280 GO LDX ««13 

0290 STX ♦D20F TURN OFF FAST SCAN 

0300 LDX #»17 

<^10 STX «D40A HSYHC 

0320 STX »D20F SAY FAST POT SCAN 

0330 STX «D20B START SCAN 

0340 LDX FLAG 

0350 CPX #0 ?LEFT HALF OF BYTE 

0360 BNERTNO 

0370 AND MFO 

0380 STA BYTE SAVE IT 

0390 RORA 

0400 RORA 

0410 RORA 

0420 RORA 

0430 AND*«0F 

0440 ORA #$10 SAY USE 4 BIT D/A 
0450 STA *D201 ECHO TO SPEAKER 
0460 INC FLAG SAY RIGHT NEXT 
0470 JMPMD 
0480 RT ROR A 
0490 RORA 
0500 RORA 
0510 RORA 
0520 AND *«0F 

0530 ORA #* 10 SAY USE 4 BIT D/A 
0540 STA $D201 SAY SOMETHING 



0550 AND #*0F REMOVE TOP 4 BITS 
0560 ORA BYTE ADD IN LEFT NIBBLE 
0570 DEC FLAG SAY LEFT NEXT 
0580 LDY#0 

0590 STA (205),Y SAVE TO BYTE 

0600 LDA$D01F 

0610 AND *«01 ?START KEY 

0620 BEQFINIYES 

0630 D3 INC 205 INCREMENT ^ 

0640 BNE MD BUFFER 

0650 INC 206 AREA 

0660 LDX 206 POINTER 

0670 CPX 209 ?END OF MEMORY 

0680 BNEMD NO CONTINUE 

0690 JMP FINI GO FINISH THINGS 

0700 DEL DEX 

0710 BNE DEL 

0720 RTS 

0730 FINI LDA 208 ?TALK A LOT 

0740 CMP#2?HUH 

0750 BNE FINIl HO, JUST RETURN 

0760 LDA #0 RESET 

0770 STA 205 BUFFER 

0780 LDA *64 START 

0790 STA 206 POINTERS 

0800 JMP NP AND DO IT AGAIN 

0810 FINIl LDA *«40 

0820 STA iD40E RESTART VBI'S 

0830 LDA *«22 AND SCREEN DMA 

0840 STA«D400 

0850 RTS 

0860 PB LDA #0 

0870 STA *D40E KILL VBI / 

0880 STA «D400 KILL DMA 

0890 PBl LDX 207 GET DELAY COUNT 

0900 JSR DEL 

0910 LDY#0 

0920 LDA (203),Y GET SOME DATA 

0930 TAX 

0940 RORA 

0950 RORA 

0960 RORA 

0970 RORA 

0980 AND #*0F GET LEFT NIBBLE 

0990 ORA #(10 SAY USE D/A 

1000 STA ♦D201 STORE THE VALUE 

1010 TXA 

1020 AND#iOF 

1030 ORA #*10 

1040 CLC 

1050 CLC 

1060 CLC 

1070 CLC 

1080 LDX 207 GET DELAY VALUE 
1090 JSR DEL 

1100 STA ♦D201 MAKE SOME NOISE 
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accounting • business • data base 
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technical • word processing 



make it easy for people to select the things you really want 
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Southfield, MI 48034 
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1 1 10 D4 IKC'20^ INCREMENT 

1120 BNEPB 
1130 INC 204 BUFFER 
1140 LDX204 
1150 CFX 206 POINTERA 
1160 BNEPBl 
1170 JMPFINI 
1180 BYTE .BYTE 0 
1190 FLAG .BYTE 0 




)oo»c 



-hSY (PIN 7) 



2M 



VOICE I/O 



MICROPHONE 
^ I— 




0 FOR I=:0 TO 2^3:F?EAD ZtPOKE 1536+1, ZJNEXT I 
^0 GOTO 1-10 

AO FOR 1=16384 TO 32767J Z(PEEK(I) ) 




Z(PEEK<I)) + 1JNEXT i:POKE 5W2,3'»JP0KE 559,34 



80 ? i=3?CHF?*(27> JCHR*(56> JCHR*(29) 
100 FOR I~0 TO 255 t 7 *3 J I J "-" J Z ( I ) 



t 

* M 



II * 

t 



120 
140 

160 



NEXT I J CLOSE #3: GOTO 160 
DIM Z(255) ,FN*(13) 

"OPTION — > 1 TALK A BIT":? 
3 TALK A LOT" 

4 PRINT SUMMARY'*:? 



GRAPHICS OJ? 



It 



II 



2 



PLAY BACK THE BIT":? 



II 



II 



II 



6 SAVE A TALK":? 



II 



PRINT THE NUMBERS" 

7 RESTORE A TALK" 



220IINPUT ANS:iF ANS>7 THEN 



220 



180 ? 

20 0 ? 

240 
260 
280 
300 
320 
340 
0 

360 
380 

4 0 0 
420 

PEEKd):" "I JNEXT r 

440 CLOSE #3: GOTO 160 

460 POKE 208,2:POKE 205,0:POKE 206,64:POKE 207,SS:POKE 209,128 
480 A»USR( 1536) : GOTO 460 



TRAP 240:? "DWHAT SAMPLE SPEED": INPUT SS:iF SS>255 THEN 240 

ON ANS GOTO 280,360,460,340,420,50 0,580 

POKE. 208, IJPOKE 205,0 : POKE 206,64:POKE 207,SS:POKE 209,128 

A=USR (1 536 ): POKE 562, 3: POKE 53775,3 
GOTO 160 

FOR laO TO 2S5JZ<I)=0:NEXT I:P0KE 54272, 0:OPEN *3,8,0,"P:":POKE 559,OJGOTO 6 

POKE 207,SS:POKE 203,0:POKE 204,64:POKE 208,0:POKE 206,128 
A=:USR( 1536): POKE 562, 3: POKE 53775,3 

GOTO .160 

OPEN #3,8,0,"P:":? #3JCHR$C27) :CHR*<56) :CHR*(29) J :F0R 1=16384 TO 32767:? #3? 



50 0 
520 
540 
560 
580 
600 
620 
640 
660 
680 
700 



? "GIVE FILE NAME 



1 1 



INPUT FN* 



TRAP 50 0 J OPEN *4 , 8 , 0 , FN* J TRAP 560 

POKE 559, O: FOR 1=16384 TO 32767: PUT *4,PEEK(I) :NEXT I 

CLOSE t4:P0KE 



559, 34: GOTO 160 



? "GIVE FILE NAME":: INPUT FN* 
TRAP 580 : OPEN #4 , 4, 0 ,FN* : TRAP 640 



POKE 559, O: FOR 1=16384 TO 32767tGET #4,7: POKE I, Z: NEXT I 

CLOSE *4;P0KE 5 59, 34: GOTO 160 

DATA 104,169,8,141,31,208,173,31,208,41,1,208,249,160,255,162,255,32,149,6 
DATA 136,208,248,169,8,141,31,208,166,208,224,0,208,3,76,181,6,169,0,141 



DATA 0 



f Ji.. X .<.. f 



141 



, 14,21 



'7 



141,10,212,141,10,212,166,207,32,149,6,173,4,210,162 



720 DATA 

740 DATA 



19,142,15,210,162,23,142,10,212,142,15,240,142,11,210,174,243,6*224,0 

208,22,41 ,240 , 1 41 , 242 , 6 , 1 06 , 1 06 , 1 06 , 1 06 , 41 ,15,9, 16, 141, 1 ,210 ,238,243 
DATA 6,76,45,6, 106, 106, 106, 106,41 , 15,9, 16, 141 , 1 ,210 ,41 , 15, 13,242,6 
DATA 206,243, 6, 160, 0,145, 205, 173, 31, 208, 41, 1,240, 19, 230, 205, 208, 163, 230, 206 
DATA 166,206,228,209,208,155,76,153,6,202,208,253,96,165,208,201,2,208,11,16 



760 
780 
800 

9 

840 
86 0 
880 

76 

90 0 DATA 



DATA 0,133, 205, 169, 64, 133, 206, 76, 37, 6, 169, 64,141,14, 212, 169, 34, 141, 0,212 

106 



DATA 96, 169, 0 , 1 41 , 1 4 , 212 , 141 , 0 , 2 1 2 , 166 , 207 , 32 , 1 49 , 6 , 1 60 , 0 , 177 , 203 , 170 , 

DATA 106.106.106,41,15,9, 16 . 141 ,1,210, 138 ,41.15,9,16, 24 , 24 ,24 , 24 , 166 / 
DATA 2G7, 32, 149, 6, 141, 1,210, 230, 203, 208, 206, 230, 204, 166, 204, 228, 2fl6, 208, 206, 



153,6,0,0 



mA.SIC ROXJTIlStEB 

by Jerry Hhite 

Review 

By RICHARD GIZYNSKI 

Tired of trying to find good examples for 
program routines? Had enough manuals for 
awhile? Basic Routines from Adventure 
International may be the answer for you* 

For $24*95 (disk or cassette) you get a 
package of programs that demonstrate a variety 
of useful routines* A descriptive manual comes 
with it but you probably won't need to read past 
page one» But don't throw it away* The back of 
the book has a lot of useful programing tips and 
referance peek/poke positions* 

The routines were designed for those who 
have gotten past their Atari Basic self-teaching 
guide but aren't ready to design their own 
jMTcade game* Just load the routine^ press the 
break key and find out how the routines work by 
following the REM statements* If you're not up 
to learning right theiir ymu €&n play with the 
routines* 

The newest of programmers will find 
'ENGLISH' a good example of programing 
technique* It demonstrates how to set up a 
menut how to use subroutines> using 
understandable variables^ making your keyboard 
warn you of errors and a general style of 
programming* Lots of REM statements help you 
find your way around the program* 

'PADDLE' and 'JOYSTICK' are demos 
for***paddle and joystick inputs* They also show 
two potential game uses for the imputs* 

Each program takes you into different 
aspects of useful routines* The main menu (disk 
version) has programs uses programs named for 
what they demo* You can copy the subroutines to 
a program you are writing and use things like — 
a 'TIMER' to dock game responses^ 'KEYDEMO' 
to read the keyboard, 'SORTDEMO' for 
alphabetizing information, etc* 'TABDEMO' is a 
handy way for setting up your screen to print 
out game info and you may want 'RJUSTIFY' 
amounts in your new checkbook routine* 

As you gain experience, you will start 
working with more complex graphics and sounds* 
'MODE123' shows you how to mix graphics 
modes by modifying the display list* 'GR8TEXT' 
shows you how to print text to the graphics 
window in Graphics 8* 

Several sound programs provide you with 
examples of how to put a theme song in your 



program or how to create the bangs, booms, 
crashes and special effects sounds you need for 
that saucer landing* 

Not all Atari programs are games, so Jerry 
White, the John Lee Hooker of Atari 
programming, and author of this package, put in 
a demonstration of a random access disk data 
base* Hhew! Quite a mouthful but really useful 
if you want to learn how to write and manage an 
inventory system or data base of your own* (A 
data base is just information stored in a 
predefined pattern — like checkbook entries)* 

The manual is an easy to read overview of 
what each program is supposed to do* For a few 
programs, it explains in a little more detail 
what might be missed by following the REM 
statements in the program itself* The last six 
pages are tips on how to speed up your program, 
save memory and a handy peek and poke guide 
used in the programs* 

If you've bought your Atari within the last 
year and want to write programs of your own, 
this collection of routines can be a big help* 



BACK UF* yc3Uir- 

B AS I O w ± -ti t-i 
MICROOLJF> 

With MICRODUP and DOS 2p you can 
maka backup copias of ycxir Atari 
Microaoft BASIC diak and maka it 

COMF>AT I BL-E wi tf-i 

Ax X on - m FtAMO I SK^- 

12BK maaory systam. laagina tha 
apaad of RAHDX8K coabinad with tha 
powar of Hicroaoft! Diak includaa 
full inatructiona. 32K RAH and 
Microaoft BASIC diak raquirad. 

« ± ^ . «79 f roa SYSTEM AIDS 
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Md n sales tax for Datroit, MI 
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ATARI ii • tridMirk of Atari, Inc. 

H1CR080FT is a tradenark of Hicrosoft. 
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YOUR CHOICE $19.99 -e» LIST $29.95 



APPLE MECHANIC 
APPLE PANIC 
BEER RUN 1 
BUG ATTACK 1,2 
CALL TO ARMS 3 
CANYON CLIMBER 2 
CLOWNS & BALLOONS 2 
CROSSFIRE I ,% 

CRUSH CRUMBLE CHOMP 1,2 
CRYPT OP THE UN0jN^ 2 
CYCLOD 1#2 
DISKMANAGER 2 
Dr. GOODCODES CAVRN 2 
FAST EDDY (X) 2 
FREE FALL 1 
GHOST ENCOUNTERS 2 
JAWBREAKER li2 
LABYRINTHS 1 



LOST COLONY 


r- — 3 




MOON BASE 10 


2 




PACIFIC COAST HWY 


2 




PIG PEN 


1 


, 3 


PREPPIE 


2 




RASTER BLASTER 


1 


,2 


SHOOTING ARCADE 


2 




SNAKE BYTE 


1 , 2 


SNEAKERS 


1 


,2 


ftp ACS BGCfi 


1 


,1 


TRACK ATTACK 


1 


.1 


TUMBLE BUGS 


2 




TWERPS 


1 




UTILITY CITY 


1 





APPLE 
ATARI 

IBM PC 
CARTRIDGE 



1.1 
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ORDER GIFTS EARLY TO AVOID HOLIDAY SIUmil0 DELAYS 



See our eetalog for etiier programs at discount prices. 

VISICALC $179 

Call for other ^^^^ ^^^^ $26.99 list 39.95 

Business Specials 

MASTERTYPE 1 , 2 

ULTIMA 1 I 2 

ZORK I 
ZORK II 



More Computer Fun 

EACH ONLY $22.99 LIST 34 . 9S 

BANDITS i.2 
CMOPLIFTBR i«X 
PII06GER 

KNIGHT OF DIAMONDS 
POOL 1 . 5 
SERPENTINE 



EACH ONLY $27.99 LIST 39.95 



STARCROSS 
TEMPLE OF 

TIGERS IN 
THRESHOLD 
WAYOUT 

VIZARD OF VOR 



APSHAI 
THE SNOW 



EACH ONLY 123.99 LIST 34.95 

ANDROMEDA (NEW) 2 

CANNONBALL BLITZ 1 

DAVID'S MIDNIGHT MG 1,2 

FACE MAKER 1,3 

MY FIRST ALPHABET 2 

MOUSKATTACK 1 , 2 

NAUTILUS 1 

PICKNICK PARANOIA 2 

SARGON II 1 

SHAMUS 2 

SLIME 2 

STORY MACHINE 1 , 3 

SWASHBUCKLER 1 

ULYSSES t GOLDEN FL 1,2»3 

WORM WAR I (K) 2 



BACK imy fil.ff LIST 44. 9S 

CENTIPEDE 2 
STAR RAIDERS 2 
P ACM AN 2 



CACN ONLY 433.99 LIST 4f .9S 

DEADLINE 
WIZARDRY 



EACH ONLY 134.99 LIST 49.99 

K-RA2Y SHOOTOUT (K> 2 

K-RAZY KRITTERS (K) 2 
K-RAZY ANTICS (K> 2 




SPEaALS are good through 12/31/82 



1 REM ** ACE NEWSLETTER 

2 REM »*3662 VINE MAPLE 

3 REM »♦ EW5BNE» OR 

4 REM »« 97405 

6 REM ♦« Nov 1982 

7 REM ♦»#«**#♦«#*»*»«»*«♦• 
10 REM »#»#«#*»**»♦««*»»«» 
20 REM »« VULTURES in *« 
30 REM »#STAN OCKERS #» 
40 REM »####«*#»#***«**#»♦ 
90 GRAPHICS ISIPOSITION 5,3:? #6;"vultures":POSITION 8,5:? #6|"III" 

100PMHI=1547:IMAGEO=1552:IMAGE1=1553JIMAGE2=1554JIMAGE3=1555:HPOS3=1559JVPOS3=1567 

1 1 0 FL AGO= 1 568:FL AG 1 = 1 569:FL AG2= 1 570 

1 12 COLO=52:COL1=24{COL2=32:COL3=244:BKCOL=144 

120 VPOS0=1564:VPOSl=1565:VPOS2=15A6JIMGPr«1584 

1 30 HPOS0= 1 556:HP0S 1 = 1 557:HPOS2= 1 558:RAMTOP=106ff'MBASE=54279:SDMCTL=559:GRACTL=53277 
140 PCOLRO=704JPCOLR1=705:PCOLR2=706:PCOLR3=707:POKE 1577,10 

150 DIM B$(20),BB*(20),V$(2):V$(1)=CHR*(136):V«(2)=CHR»(138)JBB*(1)=CHR$<0)JBB*(20)«CHR$(0)JBB*(2)=BB* 

151 DIM CL$(38):CL»(1)=" ":CL*(38)=" ":CL$(2)=CL* 

152 DIM X*(38),X1*(38)}X»<1)="X":X»(38)="X":X*(2)=X»JX1*<1)="I":X1»(38)="X":X1$(2)=X1* 

153 DIM LTNG$(46):REST0RE 154:F0R 1=1 TO 46:READ A:LTNG$(I,I)=CHR$(A)JNEXT I 

154 DATA 124,29,41,29,30,124,29,30,30,40,29,30,30,40,29,30,124,29,40,29,124,29,41,29,41,29,41,29,30,124,29 

155 DATA 30,30,41,29,30^,41,29,30,30,41,29,30,30,124 

156 DIM ERAS$(46):REST0RE 157;F0R 1=1 TO 4A:READ AtERAS»a,I)-CHR»(A):NEXT I 

157 DATA 32,29,32,29,30,32,29,30,30,32,29,30,30,32,29,30,32,29,32,29,32,29,32,29,32,29,32,29,30,32,29 

158 DATA 30,30,32,29,30,30,32,29,30,30,32,29,30,30,32 

lAo count=2o:perch=i8o:birds=o:dif=3:poke 1555,8 

200 GOSUB 6000:GOSUB 2000:POKE 764,255:? CHR$(28)}"PRESS START TO BEGIN":? "ANY KEY TO PAUSE" 
202 ? "Beware the golden vultures !!!":G0SUB lOOO 

210 A=PEEK(RAMT0P)-16:P0KE PMBASE,A:P0KE PMHI,AJS0UND 0,0,0,0:A=USR<1536){GRAPHICS OJGOSUB 5000 

220 POKE SDMCTL,62:P0KE GRACTL,3:P0KE 764,255 

230 COUNT»20:PERCH=180JBIRDS=OJDXF=3»HDKE i555^U3OLD=500:SCORE=0 

255 SHIELD=20:FOR J=SHIELD to 23:P0SITI0N i,JJ? X*}:NEXT JJPOSITION OiOJ? " dif score high" 

260 POKE PCOLRO,243:POKE PCOLRl ,243:P0KE PC0LR2,243:P0KE PCOLR3,40 

270 POKE 752,1 :for 1=2 TO 36 STEP 2:position 1,1 :? v$:next i:bleft=i8:bland=o:poke 1575,0:HIT=0 
275 position i,shield-i:? cl$ 

277 position 22,o:? dif:position 26,o:? score:position 34,o:? high 

280 RESTORE 285JFOR 1=1564 TO 1571JREAD A:P0KE I,A:NEXT I:P0KE 1559,100:POKE 1783,11 

285 DATA 0,0,0,150,0,0,0,0 
290B*=BB» 

299 POKE 712,BKCOLJPOKE 1574,0tf»OKE 708,COL0:POKE 709,COL1:POKE 710,COL2:POKE 711,C0L3 

300 C0UNT=C0UNT-1:A=PEEK(1575):IF HIT<A THEN HIT=AJPOKE 1788,129»CORE=8CORE+10»DIF{POSITION 26 

or? SCORE 

31*0 IF PEEK(FLAG0M> AMD COUNT<0 THEN GOSUB 905JPOKE (FLAGO),ltf^KE (HPOS0),40+R*8:POKE VPOS0,48 

320 IF PEEK(FLAG0)=1 THEN POKE VPOSO,PEEK(VPOSOHDIF 

330 IF PEEK(VPOS0)>=PERCH THEN POKE FLAGO,0:A=INT((PEEK(HPOSO)-48)/4):GOSUB 950:POKE HPOSO,0:POK 
EVPOS0,32 

340 IF PEEK(FLAG1)=0 AND COUNT<0 THEN GOSUB 905:POKE (FLAG1),1JP0KE (HPOS1),40+R*8{POKE VP0S1,48 

350 IF PEEK(FLAG1)=1 THEN POKE VPOSl,PEEK(VPOSl)+DIF 

360 IF PEEK(VPOSl)>=PERCH THEN POKE FLAG1,0:A=INT((PEEK(HPOS1)-48)/4):GOSUB 950:POKE HPOS1,0:POK 

E VPOSl 32 

370 IF PEEK:(FLAG2)=0 and COUNT<0 then GOSUB 905:POKE (FLAG2),1:P0KE (HPOS2),40+R»8:POKE VP0S2,48 
380 IF PEEK(FLAG2)=1 THEN POKE VP0S2,PEEK(VP0S2>+DIF 

390 IF PEEK(VP0S2)>=PERCH THEN POKE FLAG2,OJA»INT((PEEK<HPOS2)-48)/4)JGOSUB 950JPOKE HPOS2,0{POK 

E VPOS2,32 

392 IF BLAND>2 THEN 500 

394 IF BLEFT<1 THEN 600 - 

400 FLASH=FLASH-1 :IF FLASH<0 THEN GOTO 550 . . 

405 IF PEEK(1574»0 THEN GOTO 650 .V^ 



VXJLXXJRES III 
BY STAN OCKERS 



410 GOLD=GOLD-l{IF GOLD<0 AND BLAND>3 THEN GOLD=100*(9-DIF)JDIF=DIF+2:XCNT=30.*POKE 704,44{POKE 

705,44:POKE 706,44 

420 IF XCNT>0 THEN XCNT=XCNT-i:iF XCNT=0 THEN DIF=^DIF-2:POKE 704,243:POKE 705,243:POKE 706,243{P0 
SITION 22,0J? DIF 

425 IF PEEK(7/i4)<255 THEN GOSUB 1000 
430 GOTO 300 

499 REM »♦ REMOVE A SHIELD »» 

500 POKE 1789,207:SVCOL=COL1:FOR 1=1 TO 6JPOKE 70S,PEEK(708)+2JPOSITION 1,SHIELD!? X1*:F0R J=1 TO 5 

:next j 

502 position 1, shield:? x*:for j=i to sjnext j:next iiposition i,shield-i;? cl*:fosition i^hieldj? 

CL$ 

508 SHIELD=SHIELD+1JPERCH=PERCH+8IIF SHIELD=23 then 700 
510 DIF=DIF-1:IF DIF<2 THEN DIF=2 

520 GOTO 270 

550 POKE 1789471:P0KE 712,40{X=RND(0)»23+8{PQSITION X,2:? LTNG*JJP0KE 712,15JP0SITI0N X,2J? ERAS$}5P 
OKE 712,BKC0L 

555 A=9-DIF:FLASH=RND(0)*30#A+10*A 
560 GOTO 405 

599 REM ## REMAINING BIRDS LEAVE »* 

600 DIF=DIF+1 ;IF DIF>6 THEN DIF=6 
612 FOR 1=1 TO 150 

614 P=PEEK(VPOS0)JIF P>0 THEN POKE VPOSO,P-1 

616 P=PEEK(VPOSl):iF P>0 THEN POKE VPOSl,P-l 
618 P=PEEK(VP0S2):IF P>0 then POKE VPOS2,P-l 
620 NEXT I:P0KE 77,OJGOTO 270 

649 REM »# HIT BY LIGHTNING *» 

650 POKE HPOS3,0:POKE 53278»OJPOKE 1 789,1 89:P0KE 707,BKCOL 

655 FOR 1=8 TO 48 STEP 4:P0KE 712,I}F0R J=1 TO 30JNEXT JJNEXT IJPOKE 712,BKC0L 

660 FOR 1=1 TO 200JNEXT IIPOKE 1788,79JF0R J=1 TO DIF 

665 SCORE=SCORE-100:iF SCORE<0 THEN SCORE=0 

670 POSITION 26,01? SCORE?" "IFOR L=l TO lOOJNEXT LtNEXT J 

690 POKE 707,40;GOTO 270 

700 IF SCORE>HIGH THEN HIGH=SCORE 

705 POKE GRACTL,0:FOR 1=53261 TO 53264JPOKE I,0{NEXT I 
710 GRAPHICS 18:P0SITI0N 5,31? #6J"final score " 
720 POSITION 8,5:? #6}SC0RE 

730 POSITION 5,8:? #6?"PRESS START" :POSITION 4,9:? #6:"T0 PLAY AGAIN" 

740 IF PEEK(53279)<>6 THEN 740 

750 GRAPHICS 0:GOSUB 5000:GOTO 220 

900 REM ** START ANOTHER BIRD ** 

905 COUNT=INT(RND(0)*30) 

910 R=INT(RND<0)«18)+2JIF ASC<B$(R))>0 THEN 910 

920 b*(r,r)=chr*<i):position 2#(R-i),i:? * ":bleft=bleft-i:return 

949 REM *» BIRD AT SHIELD *# 

950 POSITION A,(PERCH-32)/8:? V$::POKE 1788,150:BLAND=BLAND+1:RETURN 

999 REM »» PAUSE ROUTINE #« 

1000 POKE 764,255 

1010 IF PEEK(53279)06 THEN 1010 
1020 RETURN 

1999 REM ## VBI ROUTINE *# 

2000 RESTORE 2001 :DIM VB*(348):F0R 1=1 TO 348:read a:vb$<i,i)=chr*<a):next I 

2001 DATA 72,138,72,152,72 

2002 DATA 206,40,6,173,40,6,16,29,173,41,6,141,40,6,162,2,254,16,6,254,16,6,189,16,6,201,8,144,5,169,0,157,16,6 

2004 DATA 202,16,235 

2005 DATA 174,120,2,224,11,208,3,142,247,6,224,7,208,3,142,247,6 

2006 DATA 174,247,6,173,23,6,201,200,176,10,224,7,208,6,238,23,6,238,23,6,201,48,144,10,224,11,208,6 
2008 DATA 206,23,6,206,23,6 

2010 DATA 24,173,11,6,105,4,133,204,162,0,134,207,160,0,132,203,189,20,6,157,0,208,189,12,6,221,16,6,208,8,189,2 
8 ^ 




Monitors 





THE ATARI 800 




OPEN 

10 a.m.-9 p.m. 
Mon.Sat 

THE 

DISCOUNT 

Computer 
SOURCE 



EVERYTHING 
DISCOUNTED 
EVERYDAY 



EDU-WARE 
OPTIMIZED 
DATASOFT 
AVALON HILL 

BRODERBUND 

SYNAPSE 
VISICORP 
QUALITY 

STRATEGIC SIMULATIONS 
ATARI PROGRAM EXCHANGE 
AUTOMATED SIMULATIONS 
PROGRAM DESIGN INC. 

AND MANY MORE 





DON'T ASK 

GEBELLI 

ON-LINE 
INFOCOM 
LJK 

IN-HOME 

KBYTE 
SIRIUS 



10 o 



A2 



HIGH PERFORMANCE 
FLOPPY DISK 



SSI 



ATARI 




ATARI 
ATARI 
ATARI 

ATARI 



800 48K *639.00 
400 16K ^269.00 

416 REC. % 85. 

810 DISK i449. 



JTE WAY EiNTERPRlSE 

8262-12 MILE RD. , 22027 MICHIGAN AVE. 
WARREN MI. 48093 DEARBORN MI. 48124 
o,o nA^A I 313-562-3178 



ATARI 830 MODEM *149. 

ATARI 850 INTERFACE *179. 
O'^' E: R 5 0 0 
R R O G R*^M S 



313-751-2454 



I INI 



CK 



2020 DATA 6,221,24,6,240,69,189,16,6,157,12,6,189,28,6,157,24,6,165,203,221,28,6,240,10,169,0,145,203,230,203,24 

0 . 

2030 DATA 42,20*,^,189,16,6,170,189,48,6,133,205,189,4St,6,133,206,177,205,240,14,145,203,230,205,208,2 
2040 DATA 230,206,230,203,240,10,208,238,169,0,145,203,230,203,208,250,230,204,166,207,232,134,207,224,4,144,1 

54 

2042 DATA 173,15,208,240,34,106,144^,162,0,106,144,2,162,l,106,144»^rfl62,2,169,0,157,28,6,157,32,6 
2044 DATA 141,30,208,238,39,6,169,2,141,132,6 
2046 DATA 173,7,208,240,3,141,38,6 

2050 DATA 174,252,6,240,36,206,248,6,16,31,189,0,6»141,0,210,232,189,0*6441»1»210 

2052 DATA 232,189,0,6,240,9,141,248,6,232,142,252,6,208,3,141,252,6 
2054 DATA 174,253,6,240,36,206,249,6,16,31,189,0,6,141,2,210,232,189,0,6,141,3,210 
2056 DATA 232,189,0,6,240,9,141,249,6,232,142,253,6,208,3,141,253,6 
2080 DATA 104,168,104,170,104,76,98,228 

2090 GOSUB 3oio:gosub 4ioo:return 

3000 REM * PAGE 6 - mSERT VBI ROUTINE « 

3010 RESTORE 3020:FOR 1=1536 TO 1545:READ AJPOKE I,A:NEXT I 
3020 DATA 104,160,0,162,0,169,7,76,92,228 

3030 A=ADR(VB»){B=INT(A/256){C»A-256«BJPOKE J538,C}POKE 1540,B{RETURN 

4099 REM *» SOUNDS ## 

4100 RESTORE 4120:FOR 1=1665 TO 1766:READ AtPOKE I,AtNEXT I 
4120 DATA 60,170,3,54,170,3,48,170,3,45,170,3,40,170,3,36,170,3,0,0,0 
4132 DATA 10,204,3,11,204,3,10,204,3,9,204,3,8,204,3,7,204,3,0,0,0 
4142 DATA 20,143,1,80,143,3,90,140,6,95,137,20,100,134,30,0,0,0 
4144 DATA 13,12,20,16,143,30,12,8,40,16,132,60,23,130,70,0»0»0 

4146 DATA 40,174,20,50,172,20,60,170,20,70,168,20,80,166,20,90,164,20,105,162,20,0,0,0 
4200 REM *# IMAGES ## 

4210 DIM V0«<4)JRESTORE 4220JFOR 1=1 TO 4:READ A{VO*(I)=CHR*<A){NEXT I 
4215 VO=ADR(VO$):POKE IMGPT+l,INT(V0/256)JPOKE IMGFr,V0-256*PEEEaMGPT+l) 
4220 DATA 36,90,155,0 

4230 DIM Vl*(5)JRESTORE 4240:FOR 1=1 TO 5!READ A:V1*(I)=CHR*(A):NEXT I 
4235 V1=ADR(V1$):P0KE IMGFT+3,INT(V1/256):P0KE IMGPT+2,Vl-256*PEEK(IMGPr+3) 
4240 DATA 66,165,24,24,0 

4250 DIM V2$(5):REST0RE 4260JFOR Isl TO 51READ A{V2$(I)=CHR*(A){NEXT I 
4255 V2=ADR(V2$)JPOKE IMGPT+5,INT<V2/256)5POKE IMGPT+4,V2-256#f'EEK(IMQPT+5) 

4260 DATA 195,36,24,24,0 

4270 DIM V3*<6)iRESTORE 4280;FOR 1=1 TO 65READ A{V3$(I)=CHR»(A){NEXT I 

4275 V3=ADR(V3*)JP0KE IMGPT+7,INT(V3/256):P0KE IMGPT+6,V3-256*PEEK(IMGPT+7) 

4280 DATA 129,66,36,24,24,0 

4290 DIM V4*(6):REST0RE 4296:F0R 1=1 TO 6:READ A{V4*(I)=CHR*(A){NEXT I 

4292 V4=ADR(V4*):P0KE IMGPT+9,INT(V4/256):P0KE IMGPT+8,V4-256*PEEK(IMGPT+9) 
4296 DATA 255,255,255,255,255,0 
4300 RETURN 

4999 REM »» CHANGE DISPLAY LIST »« 

5000 DL=PEEK(560)+256#PEEK(561) 

5010 POKE DL+3,70}POKE DL+6^{FOR I=DL+7 TO DL+28JPOKE I,4{NEXT I;RETURN 
6000 GRAPHICS OtPOKE 752,1 IPOSITION S,i;? "*»* VULTURES III **♦" f! 
6010 POSITION 5,3J? "The vultures are landing and "J? "removing protective layers above" 
6020 ? "you! There are three layers and "',7 "every time three vultures land"}? "one layer wiU disappear."}? 
6030 ? " You can stop the birds with"}? "a removal device controlled by"}? "joystick 0» Tou get tmi times" 
6040 ? "the difficulty for each bird you"}? "stop. When you have removed a" 
6050 ? "flock, the difficulty will go up."}? }? "If you get hit by lightning your" 
6060 ? "score will decrease by a hundred"}? "times the difficulty,"}? 17 "Just a sec..." 
6090RETURN 

IS IX TIIME F-OR YOTJ TO REIMEPnT? 
OO IT KEOIxr an: ID SAVE! 

Renewals £; memberships before end of year - $15 After 12/31/82 - $20 



Kl—vAyzy Antril<.s 
Game Review 

by Sheldon Leemon 

Don't be Gonfused by the ptin# The "ANTIC" 
that everyone associates with Atari computers 
is the support chip that makes possible the 
superb grapliics needed for of those neat 
arcade-type games* The "Antiks" in the title of 
this product refers to the insect you need in 
order to have a picnic* When the two get 
together, you wind up with a neat arcade-type 
game with great graphics* and everyone has a 
picnic! 

Krazy Antiks is the fourth game-cartidge 
released for the Atari 400/0)0 computerst but it 
bucks the trend of "me-too" arcade-style games* 
Lately it Mems that everyone is trying to cash 
in on thm arcade craze by serving the 
warmed-over remains to computer owners* We 
have seen jBug Attack, Millipedes, MegajLpjjs 
Atari's own Centipede competing for the 
insect-eradication dollar* awbreaker, Pacman, 
and Ghost Hunter have been trying to satisfy 
the appetite of gamers hot to gobble* Hhy did 
the frog cross the highway and the river? Ask 
the makers of Pacific Coast Highway, Preppie* 
and now Frogger* Even K-^Byte's earlier 
ventures into game programming tended to 
follow the heavily beaten path* But Antiks has 
just enough of a twist to be considered a new 
idea in a market saturated with retreads* 

I must concede that the locale of the action 
is nothing novel — the ant hill in question 
strongly resembles the typ© of maze used in any 
number of games spawned by tli#t prolific 
procreator, Pac-man* But the scenario is a 
fresh one* You play the role of the Hhlte Antt 
and your purpose is one fMiilief to ttudents of 
biology — to perpetuate the survival of the 
species* You start the game with thirty or so 
eggs at the bottom of the screen^ which 
represent your capacity to reproduce* Arrayed 
against you are several adversaries* First, one 
Mt each of the four basic ant typest the yellow » 
blue, green and red ant, circulate around the 
maze» trying to devour you* Another natural 
enemy is the dreaded anteater^ %»ho strolls into 
the picture every so often and inserts his long 
tongue into the anthill at random* sucking up 
friend foei ant and egg alike* Finallyt 



periodically a rain shower turns the lower part 
of the anthill into a miniature Kilkes-Barre, 
only wit tout the federal aid* 

With the odds against her* the lone ant has 
little chance for individual survival for long* 
Fortunately, if she can find a safe place in the 
maze in which to lay an egg where it will not be 
eaten by another antt thm after she is gone* the 
egg will hatch, and another white ant will take 
her place* Moreover* she has a weapon she can 
use* The other ants are busy laying eggs also, 
and when she eats one of theirs, she begins to 
glow* letting you know that the next egg she 
lays will be deadly to the other ants* if laid 
directly in their path* At each level* play 
continues until the white ant is killed* without 
leaving any eggs in the maze* or until all four of 
the other ants have been killed without 
surviving offspring* If the latter occurs* the 
game proceeds to the next level* and four new 
enemy ants come marching in to the tune of 
"Hhen Johnny comes Marching Home" (which 
some like to think of as "The Ants Come 
Marching Two by Two")* When you succeed in 
clearing a level* don't becc^ overconfident* 
Each maze has 99 levels of difficulty! If that 
fails to provide enough variation, there are a 
total of 6 different maze configurations to try 
out* 

The play values are very good in Krazy 
Antics* Even an experienced player can get 

caught early on by a freak accident* which 
inevitably leads to "just one more" game* There 
is a pause option* for those disturbed by the 
unwarranted intrusions of friends and family* 
Unfortunately* there is no multi-player option* 
But if you don't mind going it along, you'll bless 
the day that ant met ANTIC* 




v< continued) 
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by Charles Godfrey 



Shipwrecked in a hurricane^ five saliors in a 
rowboat landed on a small island inhabited by 
one monkey and numerous coconut trees* The 
trees had just finished bearing a bumper crop of 
coconutSf all of which had blown to the ground in 
the hurricane* 

Having nothing better to Aoy the sailors 
decided to gather all the coconuts on the island 
into a single pile* They finished the job by 
nightfall^ and then fell soundly asleep* But one 
sailor awoke in the middle of the night and 
became worried that he wouldn't receive his fair 
share of the milky palm fruit* He stole away to 
the pile and removed exactly his fair share of 
the coconuts^ buried them^ and went back to 
sleep* Another sailor awoke a short time later 
and did the same — buried his fair share of the 
coconuts and returned to sleep* Each of the 
three remaining sailors* in turn* did likewise* 

The next morning » not suspecting what each 
of the others had done* the sailors divided the 
remaining coconuts* and each received his equal 
share* One coconut remained # which they gave 
to the monkey* 

The challenge was to write a program to 
determine the total number of coconuts in the 
original pile* 

I=»XJZZLE *2 SOLXJTIOIC 

Coconuts* coconuts* The island was full of 
coconuts* Even the monkey got a coconut* There 
were no out of state entries this time* but those 
puzzle gurus from last months Burt Gregory and 
Chris and Mary Ratkowski were at each other 
again with their entries only 1 day apart* Burt 
used a 1 line APL program again on his monster 
IBM mainframe to solve the puzzle in 1*14 
seconds* Chris and Mary were the winners 
though* using a 5 line Atari basic program* 
Claus Buchholz of Muskegon thought the puzzle 
was too easy* and solved it with pencil and 
paper with an excellent explanation of the 
mathemathics involved* Several people* like 
Chris and Mary* did some paper work prior to 
programming* solving for a base number to make 



the final program more efficient* Their formula 
goes something like this* 

remainder = 4/5(4/5(4/5(4/5(4/5coconut5)))) 
= (4/5K"5 coconuts 
« 1024/3125 coconuts 

The total coconuts must be an even multiple of 
3125 since all divisions during the night came 
out equal* The lowest correct answer is 12500 
coconuts* By brute force* the following program 
would slowly but surely crank out the correct 
answers* 

100 X=0 

110 z=x 

120 D=0 

130 IF Z O 5#INT(Z/5) THEN 190 

140Z=Z-Z/5 
150 D=D+1 

160 IF D<5 THEN 130 

170 IF Z~5*INT(Z/5)01 THEN 190 
180 PRINT X}" IS A SOLUTION" 
190 X«X+1 
200 GOTO 110 



MACE I=»XjrZZLE #5 



This month I ran out of imagination and am 
borrowing a puzzle from a book by Donald D* 
Spends* Be prepared to let your computer run a 
LONG time for this one* 

Once there was a king who thought of himself 
as quite a mathematician* He told a prisoner f 
"Give me a problem to solve, and you may go 
free until I solve it* But as soon as I have the 
answer# off comes your head!" Now the prisoner 
was rather clever himself and here is the 
problem he gave the king* 

The numbers 220 and 284 are amicable numbers* 

The sum of the proper divisors of 220 equal 284 

1^2-i-4+5+104ll'i-204-22+44-i-55+110 = 284 

and the sum of the proper divisors of 284 equals 
220* Find the next pair of amicable numbers* 

The story goes that the prisoner went free 
and finally died of old age because the king 
never solved the problem* 

What I am looking for in this puzzle is the 
longest list of amicable numbers submitted* The 
Catchi To prove you did not get the answers 
from some book^ your entry must be a computer 
printout accompanied by the program* 
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Send your answers to* 

Charles Godfrey 

29646 Chelmsford 
Southfield, MI 48076 
559-1272 

AUTHORS DETERMINE WINNERS- The authors 
of the MACE Puzzles presented here are 
responsible for determining the winners to their 
respectiye puzzles* Any questions concerning a 
puzzle should be directed to the particular 
author involved* MACE will award the prizes 
either in person at a meeting, or by mail* 
Contestants must be sure to CLEARLY print 
your name, address, and telephone number so 
that we can contact you if necessaryt 

Anyone wishing to submit a puzzle may do so* 
Write or call the puzzle master for further 
information* 



Forth Language SIG Report 

by Todd A. rteitzner, Hansger SIG/FORTH MACE 

SIG/FORTH held its October meeting on 
October 6th* It was the first meeting to be held 
at the Royal Oak campus of the Oakland 
Community College* The meeting began shortly 
after 7*00 with general socializing and then 
cmtinued with the release of Mesa-Forth to the 
members* 

Some explanation of how to use it was also 

given* Then a talk was given on some of the 
various error codes found in Forth* The meeting 
eventually ended up in a general discussion of 
Forth and other subjects* 

The December meeting will be held on 

Wednesday, December Ist* Note that the date in 
the sig report last month was incorrect* The 
meeting place will be at the Royal Oak campus 
of the Oakland Community College in Room B 
119, the employee lounge* This room is located 
in the Administration section B off the main 
hallway on the first floor* There are two 
archways into this section and the room can be 
found by going through either to the last 
hallway* The room is at one of the corners of 
the last hallway* 



As yet there is no meeting place for the 
January meeting but it is hoped we can once 
again obtain the use of a room at OCC* 

The Sig/Forth meetings are open for all 
MACE members to attend. We hope to see you 
there* If anyone wishes to contact me for 
further information my phone number is listed 
under the MACE SIG GROUPS section elsewhere 
in this newsletter* 



Assembler Language SIG 
By Phil Heavinf Secretary 
MACE SIGASM 



October Meeting Minutes 

Our business meeting was kept even shorter 

than usual this month to allow more time for the 
rest of the meeting* Tom welcomed several new 
people who were attending a SIGASM meeting 
for the first time* Next, Tom conducted a short 
session describing the application of the 6502 's 
register manipulation instructions^ load, store 
and transfer* In addition Tom described the 
basic structure for an assembly language 
program* In addition to being good programming 
practice, it was also a good method for 
overcomming 'terminal fright' when sitting down 
to begin writing a program^ 

Next we spent two hours discussing, in DETAIL 
an assembly language program that I wrote for 
SIGASM to demonstrate how to write an 
assembly language game program* This program 
demonstrated - a custom display list, smooth 
player motion done in a VBLANK routine under 
joystick control f player-play field priority, and 
autorun on binary load* Lucklyf without much 
planning this session demonstrated several of 
the points from Tom's sessions from the last 
two meetings* 

December's Meeting 

December's meeting will be Thursday, the 2nd at 
the home of Kent and Karen Kujala in Taylor* 
You can contact them at 292-9414 or me at 
939-6213* The meeting will begin at 7J00 with 
socializing and free form discussion with the 
actual business portion starting at 7{30* We 
hope to see you there* * * 
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HOKE SHIP Ymht csmplete computer gamini stori^ 

with over 500 excitiog titles in discs and cartridges. At INICRO CHIP yoo. 
can play the game on our systems before you buy it > 
If Mft dM't have . . . we'll order it with an additiMiaJ 10% off our^ 
everyday low pricei Yes. we are competitively priced with discount prices! 



V 




MICRO CHIP INC 

3628 ROCHESTER RD. TROY, Ml 

CENTURY PLAZA SHOPPING CENTER 

PHONE: (313) 524-1230 
HOURS: MON.- SAT. 10-9 SUN. 10-5 
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MRKER BROTHERS 
ATARI U.S. Games 



[USBS 





NAYDEN SinWAlE 


SYlENItflC mTWAK 




mMum emrfTEi wmm 


TURNKEY SOFTWARE 




INFOCON 


UNITED SOFTWARE OF ARIEAICA 


ADVENTURE INTERNATIMMI 


INNOVATIVE lESIfiN SOFTWARE 


VERSA COMPVTIM 


ASTAR INTERNATIONAL 


THE LEARNINO COMPANY 


VISICORP 


AUTOMATED SIMULATIOIt 


TNE L06ICAL CHOICE 


V0YA8ER nnmE 


AVALON HIU SAME COIMIf 
AVMMANI CIEiflMi 


RNCMUl 


ZEITIEItT 


RHOMMFr 


ACORN SOFTVAII 


REA6LE RROTNERS 


MUSE 


ARCANE PiMt 


BRODERIUNI SIFTWAIE 


OH-UHE SYSTEM 


ARTSCI 


IUD6E ca 


PICCAOIUY 


ATARIIHCOiPMATU% 


BUD6EC0 


PHOEIIX nmiAiE 


APR 


CALIF9MMI MCffIC 


IMtlVT OinVAK 


AV 

ATARI PR08RAMEXCHANBE% 


CAffALIEI 


miERRAHK SOFTWARE 


CONTINENTAL SOFTVME 


SEHSIBLE SOFTWARE 


COMPUTER MA81C LTRi 


C P U SOFTWARE 


SENTIENT SOFTWARE 


DATASOn 


CPU SOFTWARE 


SIERRA SOFTWARE 


HhNOME MfWE 


DAKIN 5/LEVEL 10 


OlOlHHI ^S^WRA^E 


HRWIWMH 


DATftMf 


tOFTAPE 


K-RYTE 


DELTA SOFTWARE 


SOFTWARE EMPORIUM 


PRISM COMPHTERt 


DON'T ASK SOFTWARE 


SPINNAKER SOFTWARE 


PR06RAM RESI8I INC. 


DOUBLE GOLD SOFTWARE 


STONEWARE PRODUCTS 


ROKUH CORP. 


EDU-WARE 


ITRATESIC tlMWAIIMt 


SYNAPSE SIRVAIE 


6EIELU tinWME 


tilLiCIC 


lYNCRO 



SFESIflLS 
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HOT ... HURRY, WHILE THEY LAST 



FR066ER BY ON-LINE 

ATHANA BLANKS 5V ssdd 



OUR$ LIST$ 

2^1.95 3^.95 
20.95 its. 95 




AlARI 400/800,APPLE SOFTWAEE ONLY 



m 



D 

YOUR PURCHASE 

(EXCEPT FOR ADVERTISED SPECIALS) 
COUftm EXPIRES ON 11-3Mf. ItMrtil 




MACE offers members the opportunity to 
explore specific applications of Atari 
Computing in Special Interest Groups (SIGS) 
where MACE folks with common areas of 
interest can meet more informally than would 
be possible at our general membership 
meetings* 

The following groups have registered as 
official MACE Special Interest Groups! 



Manager! Todd Meitzner 
542-1752 



Manager! Stephen Tobias 
979-5740 

Manager! Ken Hein 
254-1761 



Manager! Tom Hunt 
Secretary! Phil Heavin 
939-6213 

SIGXBASIC 
Manager! Jim Spitzer 
543-0961 



Manager! Douglas Perenchio 
776-7626 



Manager! Mark Davids 
774-9709 



Manager! Chris Ratkowski 

532-5421 

SI<3,/1>TEW XJSERS 
Manager! Michael Winters 
645-2193 

XJTILITIES 
Manager! Charles Godfrey 
559-1272 Home 
362-9110 Work 

Get invQlvedi! Join a MACE SIG todav!!! 



CRC SOFTWARE 

Practical Programs 

for ATARI VIC-20 SINCLAIR 

registered trademarks 
LITTLE BLACK BOOK— 9-95 ATARI ZX«8l 

HOUSEMASTER 12.95 ZX-81 

BILL MASTER 12.95 ATARI ZX«8l 

BUDGET MASTER 12.95 VIC-20 

APPOINTMENT PLANNER 12.95 ATARI ZX-81 

CSHECKBOOK— 12.95 ATARI 

STATBMBIT AID * 9.95 ZX-81 

PANZER SS 12.95 ZX-81 

ALPHABET SOUP ^ 12.95 ZX-81 ATARI ^ 

RELINE 9.95 ZX-81 

All programs will run on 16k machines, with cassette. When ordering 
state computer. ADD 2.00 for shipping per order (US only) 
Phone orders shipped CCD. (CX)D charge extra) Orders paid with 
money orders shipped within 24 hr. Personal checks allow lo days. 

2901 AUBURN RD. AUBURN HGTS. MICH. 48057 
(313) 852-3711 (9 •« - 5t30 pm) MON - PR! ^ 



An Advatnczed Use 
of^ trhie ATARI 

by Phil Heavin 
MACE Assembler SIG 



As promised f this article will CDver a more 
advanced application of macros* I will assume 
that you have at least read my previous article 
on macros* It would be even better if you have 
read the manual "ATARI MACRO ASSEMBLER". 
The following example shows how macros can be 
used to implement something fairly complicated « 
It is NOT necessairly the best way to implement 
the desired commandst as a matter of fact 
several possible improvements 
are noted below. 



THE EXAMPLE COMMANDS 

The commands to be implemented are the 
following. 

CALL SUBNAMjARGl,ARG2...i]J 



Where SUBNAM is the name of a subroutine 
being called and ARGl through ARCS are 
optional arguments to be passed to the called 
subroutine* 

Each argument can^be one of the following forms! 

labref - label reference! the 
address of 'labref will 
be passed as the argument 

Cwordl - the 16 bit value will be 
located in local storage 
by the CALL macro and its 
address as the argument. 

Cbytel - the 8 bit value will be 

stored as the first byte 
of two bytes located in 
jl^ local storage by the 

CALL macro and its 
, address as the argument. 

\^ 

-4- 



SUBR SUBNAM [a} [x|Cxl 



This command is the first command of 

a subroutine. The optional arguments^ A# X, and 
Y specify which registers should be saved on 
entrance to the subroutine and restored when 
returning from the routine. 

RETURN 

This command specifies the logical end of the 
subroutine and will return control to the first 
executable statement after the CALL. Before 
control is actually returned to the calling 
program^ any register that was saved by the 
SUBR command will be restored. 

DESIRABLE FEATURES 

1. Simple to use 

2. A» Xf Y should pass through 

3. Reentrant (if a call is in process in the main 
program^ the VBLANK routine which interrupts 
it should also be able to do a call) 

4. Recursive^ (A routine should be able to call 
itself with arguments)5. Calls should be 
nestable. 

6. Should support null arguments and variable 
length argument lists* 

THE IMPLEMENTATION CHOSEN 

There are many ways to implement argument 

passing for subroutines. The main thing that I 
wanted to accomplish was to be able to pass the 
address of arrays of data and make it as simple 

as possible for the subroutine to access the 

data in the arrays. 

A secondary requirement was to support lengthy 
argument lists called to several levels* 

SOf how well does the macro implementation 
meet the criteria listed above? 

1. Simple to use? 

YeSf as outlined above* 

2. Do Af Xf Y pass through? 

YeSf they will be passed through the calls 
transparently. 

3. Reentrant? 

Not quite» the local variable CATEMP can get 
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clobbered under this condition* 

4# Recursive? 
Sort of* All of the subroutine call macros are» 

but it is up to you to manage your own local data 
storage to make the routine fully recursive* 

5* Calls nestable? 
Yes* 

6# Null arguments and variable length argument 
lists? 
Yes* 



MEMORY REQUIREMENTS 

Page zero - 

1 byte for CATEMP 

2 bytes for the address of the argument stack* 
plus 

2 bytes for each argument* Must be labeled 

ARGltoARGS* They must be located in 
consecutive locations on page zero* You only 
need enough for the longest argument list you 
intend to use* 

At the end of yowr program 

The argument stack which will grow from the 
end of your program toward higher addresses* 

THE MACROS 

In addition to those described above, there is an 
initialization macro which must be invoked once 
at the top of yoi^ program 

CALLDF STACKT,PZERO 

Where! 

STACKT - a label at the very end 

of your program for the 
start of the argument 
stack* 

KERO - address on page zero of 
3 bytes for the macros 
to use* 

Now the macros themselves* 



* 

f 

CALLDF: hACRO STACKT^PZERO 
CATEMP = Z2 
CASTAK > 22^1 

LDA fLOWCZl] 

STA CASrM< 

UM fHOMZi] 

STA C^TAK+1 

BDN 

This macro generates the necessary equates and 
initializes tiie vaiUB of CASTAK the stack 

pointer. 



call: 


MACRO 


NAfC, Al »A2»A3»A4,A5»A6»A7»A8 




STA 


CATEMP 


mm 


SET 


0 




MLT 


CtKHAX,22»23»Z1*25,Z6»Z7»Z8tZ9 




PUSHAG 






MULT 






DOJSR 






POPARG 






ENDM 





This is the top level macro dcH^ining the CALL 
statement* This is accomplished as follows* 

1* Save the A register in CATEMP* 

2* Zero MAXARG which will be used to count the 

number of arguments* 

3* Invoke CHKMAX for each argument to count 

the number of arguments* 

4# Invoke PUSHAG to push the current values in 
ARGl through ARGn onto the argument stack* 

(n=MAXARG) 

5* Invoke NEWARG for each new argument 
supplying a new value for ARGl tt^ough ARGn* 
6* Invoke DOJSR to simulate a JSR. 
7* On return from the called subroutine^ invoke 
POPARG to restore AI^l through ARGn to tlieir 
state before the CALL* 



HULTfUCm 



(continued) 



M«A«C*E* November 1982 



HULT 



mm 
u 

u 
zi 

XI 
XI 
XI 



hNAHE,Al,A2,A3»A1»A5»A6|A7»A8 

2,X3 

4,25 

5,U 
6,37 
JfXS 
8,29 



This macro is invoked, as shown above, and will 
invoke the named macro once for each argument. 



t 

f 



OMMXiMCRO 



] 



mm HACRO N^ARG 
F fLSM'iJ2'3>13 

^MXARG SET XI 
ENDF 



This macro will be invoked Via MULT from the 
CALL ftmaro* For any argument that is not null* 
MAXARG will be updated* Therfore, after it 
has been invoked for all arguments^ MAXARG 
mil contain the number of arguments used in the 
CALL statement* 



This macro moves all the current arguments to 
the argument stack and increments the stack 
pointer accordingly* This could be improved by 
generating inline code for shorter argument 
lists and this loop only on the larger number of 
arguments* 



mmi MUD munttmanD 

ff LSTR['iZ2'3>l 
PUTARG 1UX2 



LDA 
STA 
STA 



*0 

ARGZl 
IKSLUi 



ENDF 
OOIF 



ENDH 



For each argument in the CAIX statement that 
isn't null invoke PUTARO to put the correct 
value in the argument pointers on page zero. 
Null arguments will have zero placed on page 
zero for that argument. 



PUSHAG HACRO 







Pirn 


F HAXARe>l 


• 




TYA 






m 






LDY 


*CHAMfiEiZ3 


?Kja< 


LDA 


ARG1-1,Y 




STA 






DEY 






BNE 






CLC 






LDA 


CASTAK 




ADC 


#ChAXARGx2] 




STA 


CASTAK 




BCC 


?NZK 




INC 


CASTAK+1 


•m. 


PLA 

TAY 




ENDF 


EWN 





PUTARG mm 

F C'C 
LDA 
STA 
LDA 
S?A 

mm MACRO 

?M9< DH 
SON 



asE 



LDA 
STA 
LDA 
STA 



EiOF 



ENDH 



ARIMJH,ARGlV)D 

'K'U'j MO I'U'CLjmim'i 

«L0HC?AZK1 

ARGZl 

IHIGHL7AZK] 
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*L0M[Z2] 
MiGZl 
«HIGHf:Z2] 
ARGZl+1 



Normal arguments are handled in the ELSE 
clause by moving their address on to the pointer 
variables on page zero. Direct arguments 
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(indicated by surrounding the argument with 
brackets [ and ]) will be stored in local storage 
after the simulated JSR and its address placed 
on the page zero pointer variables* ; 

This macro contains an example of defining a 
macro within a macro* The macro named An^N 
(where n=arg #) will be invoked in DOJSR to 
define the local storage for a direct argument* 



POPARG MACRO 



* 

f 

» 



DOJSR 




?rzk: 



mCRO 


NANE,A1»A2,A3,A4»A5,A6»A7»A8 


LOA 


«HIGH£?R39{-1] 


PHA 




LOA 


#LOHC?iaK-l] 


m 




LDA 


mm 


PHA 




LOA 


CATEHP 


JNP 


%l 


HULT 




EWH 





This macro pushes the return address minus one 
(read how JSR and RTS work) onto the stack 
then the number of arguments* restores the 
value of the A register and ^jmps t© the 
subroutine* 



POPARG 


HftCRO 




F mXAR6>0 






DUA 

rnft 






ITff 






PiiA 

rnfl 






ccr 






Li/R 


CASTAK 






t[HAXAR6i23 




CTA 


CASTAK 




DPO 
DLb 


7m 






CASTAK+l 


riuK 








LDY 




?«a< 


LDA 


(CASTAK), Y 




STA 


ARG1-1,Y 




DEY 






BNE 


?HZK 




PLA 






TAY 






PLA 




ENDF 


ENDM 





This macro restores the arguments from the 

argument stack and sets the stack pointer back 
to their state before the CALL statement* 

AS in the PUSHARG macro this macro could be 
optimized for fewer number arguments* 



i 



MULT is used to invoke TEMARG to allocate 
local storage for any direct arguments* 



mm mm 



] 



TBm MACRO ARGNUh,ARGADO 
ff LSTRC'1Z2']>1 

ff C'C '<'XZ'l AND L'XZ'K'Llimm'l 

mm 

BDJF 
ENDF 

ENDH 



For all direct arguments generate the DW 
statement by invoking the macro defined in the 
PUTARG macro. 




SUBR: HACRO NME»SAV1,SAUZ,SAV3 

SUSAVA SET C'x52'='iA']0R['«:3'='iA'30RC'x%1'='«A'] 
SUSAVX SET t'«2'='iX']0R£'«3'='lX']0R£'«:i'='«X'] 
SUSAVY SET C'tt2's'tY'XIRC'«3'='«r'JBlC'««'='iY'] 

PROC 

IHJtmt OB 0 
Ui 

SUBRl 
ENDH 

This macro expands the SUBR statement. It 
first sets the variables indicating which 
registers were requested to be saved. Next the 
SUBRl macro is invoked. This rather artifical 
split is to accomodate the 255 character limit 
mentioned in my first article. 



i 



i 
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15 YOUR ATARI GETTING BORED? 



EUEN A COMPUTER NEEDS 
A UACATION! TRY TAKING 
IT TO PRETZELLAND! 



THE FIRST AMUSEMENT-THEME PARK FOR 
COMPUTERS ONLY! 



UI5IT- 

ACTION-ADUENTURE 



NORLD 



ANDROID 
ATTACK 



SHOOT YOUR MAY DOHN TO SAUE 
THE RUNAMAY NUCLEAR REACTOR 
THEN SAUE YOURSELF! 



FANTASY HORLD 

nnPRRRGGG 



I I I 



CATCH 'EM IF YOU CftN- 
BUT DOM' T GET POISONED! 



TAKE HOME tk SOUVENIR OF YOUR UI5IT- 
FROM YoDr LOCftL DEOLER, OR ORDER 
DIRECT FROM PRETZELLOND, ONLY S18.95 
^SPECIFY* 16K CA55ETTE, OR 32K DISK 



SPACE NORLD 

5TfiRBfi5E fiSSfiULT 






BLAST THE ALIENS- 
BEFORE THEY BLAST YOU! 




PRETZELLAND 
50FTHARE 

2865 E MHITTAKER RD . 
YPSILANTI, MI 48197 
€313) 483-7358 



ATARI IS a registered tradetark of ATARI, IMC. 
PRET2ELLAM0, AMOROIO ATTACK, AAARRR666 and STARBASE ASSAULT are tradetarks of PRETZELLAW SOfTKARE, 
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SlfiRl iMCRO 



suBRi: mm 

STA MTEHP 
PLA 

STA iNUHARG 
F SUSAVA I 
UMCATEMP 
PHA 

ENDff 
F SUSAUX 
TXA 

m 

BHiIF 
F SUSAVY 

TYA 

PHA 

BOF 

UM CATQfP 
EMM 

This macro saves the A register pulls the 
number of arguments from the hardware stack 
and puts it into the local variable JNUMARG. It 
then saves any of the requested arguments then 
restores the A register to its original value* 



RETUW mCRO 



return: macro 

f csusa^o] aw ccsusavxiorcsusavy]] 
stacatehp 

EM)F 

F SUSAVY 
flA 
TAY 

ENDF 
F SUSAVX 

PLA 

TAX 

ENDF 

F CSUSAMM] AM) CCSUSAVX3GRCSUSAVY]] 
LOA CATDP 

EM)F 
FSUSMM 

PLA 

ENDF 

RTS 

EPROC 

EMM 

If A register restoration was not requested and 



the current contents are going to be clobbered 
save it in CATEMP. Restore X or Y if 
restoration was requested* Next> put back 
either the current value of A or the value of A 
on entrance to the subroutine and return* 



EXAMPLES OF EXPANDED CODE 

The following examples show the code produced 
by a couple of different invocations of these 
macros. It should be noted that these examples 
are not of actual executable program^ so don't 
try to figure out the purpose of the subroutines* 



This is storage allocation and initialization that 
would appear at the top of the program* 

UST G,-H 
ORG SCO 

ARGl DM I 

ARG2 DH • 

ARG3 OH I 

ARG4 DH t 

ARCS DM a 

ARG6 DM 1 

ARG7 DM • 

ARG8 DM I 

ORG llfia 

CALLDf PRGEND^SBO 
CATEM> - $B0 
CASTAK = $60+1 

LDA fLOHCPRGEM)] 

STA CASTM< 

LDA IHIGHCPRGEM)] 

STA CASTAK^ 



This call statament* 

CALL SUBY 
Will produce this code* 

STA CATBP 

LDA #HIGHC?R005A-1] 
PHA 

LOA IL0HC?RIISA-1] 

m 

LDA mm£ 
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PHA 

LDA CATDP 
JTP SUBY 



This call statement: 

CALL SUBAX»AL,[«5E3,BL 



Hill produce this code! 





STA 


CATDP 




TYA 






PHA 






LDY 


#[NAXARGK2] 


mm 


UM 


/«G1-1,Y 




STA 


(CASTAK),Y 




DEY 






BiC 


?H002D 




CLC 






LDA 


CASTAK 




ADC 






STA 


CASTAK 




BCC 


?N002D 




SC 


CASTAK+1 




FLA 






TAY 






LDA 


ILOHCAL] 




STA 


AR61 




LDA 


fHIGHCAL] 




STA 


ARGi+1 




LDA 


IL0M;?MI323 




STA 


ARG2 




LDA 


iHIGHC?A0632] 




STA 


ARGZ^l 




LDA 


tLOHCBL] 




STA 


M)63 ■ 




LDA 


«HIGHCBL] 




STA 


AR63+1 




LDA 


«HIGHC?ROaaA-lJ 




PHA 






LDA 


«L{IN[?RS03A-1] 




m 






LDA 


imXARG 




m 






LOA 


CATDf* 




Jf> 


SIBAX 




DM 


[$SE] 


mm 


m 






TYA 






m 






SEC 






UM 


CASTAK 




sec 


*CfMXAR6KZ] 





STA 


CASTAK 




BCS 






DEC 


CASTAK+1 




LDY 




?NIM5 


LDA 


(CASTAK) tY 




STA 


ARG1-1,Y 




DEY 






B^E 


?H00« 




PLA 






TAY 






PLA 





This SUBR statement: 
SUBR SUBXY,X,Y 
Will produce the following code! 
PMC 

snuharg: db o 
subxy: 

sta catemp 

PLA 

STA tttms 

TXA 

m 

TYA 
PHA 

LOA CATEHP 

Your subroutine code will 90 here» To index into a b>{te 
array that is the third arguHent, just load an index 
into the Y register and use indirect indexed addressing 
like this: 

LDY #4 

LDA (ARG3),Y 

The above code wuld load the 5th byte of the array 
passed as MG3t 

Hou this statenent: 

RETURN 

Hill generate this code! 

STA CATEMP 

PLA 

TAY 

PLA 

TAX 

LDA CATEMP 
RTS 

AL! DS 20 

bl:ds30 , - - 

PRGEND! 
END 



r 



ATARI IMAOAZIIME ARTICLES — I=»ART II 

COMF'ILED BY 
EIHMRD HIDOLEBROOK 

TITLE AUTHOR SUBJECT MAGAZINE ISSUE 



CHICKEN - A GREAT GAME 


ANTIC 


IMMDERS FROH OUTER SPACE 


MAN<LEY 


MAZE RIMR 


mm 


MIDNIGHT STRIP 


(mm 


HIDNIGHT STRP 


CLAYTON 


SWOT 


PALEVICH 


SF-ACE INVADERS 


LEEHON 


TYPING SHOOT 


COMPUTE 


ATARI SOJNDS TUTOCIAL 


WHITE 


BILLIARD BOUNCE 


LANS 


COLOR HHEEL FOR THE ATARI 


BLACKA 


PUT A RAINBOW IN ATARI 


TEDSEN 


STRING ART 


HASttN 


THE FLUID BRUSH 


BAKER 


TICKER TAPE iCSSAGES 


MARTELL 


TINES SQUM^ ON ATARI 


HAf^ilS 


ULTRACUBE! SUPERCUBE REV 


BENSON 


CONCENTRATION 


Bumm 


CRYPT0GRW1 


M^-CUSE 


NOROHUNT 


BAKER 


WORD SEARCH 


JO^ES 


MAYPOLE 


M^OYA 


NOIRE HAGIC 


CERRUn 


aiFtRCUBE If -DATE 


KI^miON 


SUF-ERCUBE 


STEINBERG 


BAKER STREH BYTES 


emNSKi 


EiALANCE Y(3UR CHECKBOOK 


BACHiW 


COMF-UTER GREETING CARDS 


VICTOR 


MATCH GAiC 


HALKER 


MONTHLY BAR GRAPH PROGRAM 


HHITE 


FflEH WRHER 


ROBERTS 


PRESCHOOL LtlTER PRACTICE 


DUBIK 


TOJCRs OF mm 


KNOPMAN 


m ATARI DISASSEMBLER 


FORTNER 


ATARI BASIC STRING SORT 


HHITE 


ATARI DISK FILE DUMP 


BAKER 


ATARI DISK iCNU 


LINDSAY 


ATARI PROGRAM LIHMRY 


HARCUSE 


BAKER STREET BYTES 


GIZYNSKI 


BAKER STREET BYTES 


GIZYNSFO: 


BINARY/DECIMAL CONVERSION 


HHITE 


EiOOTABLE CASSETTE TO DISK 


SCHllTZ 


COPY ATARI TO PRINTER 


STRAW 


COPY SCREEN TO PRINTER 


Sim 


DATA MANAGEfENT SYSTEM 


HARCUSE 


DISK DIRECTOJY F-RINTER 


LINDSAY 


DISKDUP 


SCHULTZ 


ERROR REPORTING SYSTEM 


LINDSAY 


LINE REM^iKRING UTBJTY 


GROPPER 


LISTER 


tMRTMAN 



PROGRAM - ARCADE MiTIC APR 82 

PROGRAM - ARDffiE COMPUTE M>R 81 

PR0GRW1 - ARCM)E ANALOG m 81 

PROGRAH - ARCADE HACE JUL 82 

PROGRAH - MiCADE MACE JUL 82 

F-ROGRAM - ARCADE C»PUTE SEF" 81 

PR0GRM1 - ARCADE MCE XT 81 

PROGRMf - M«:A0E COMPUTE NOV 81 

PRCCRAM - DEMO CWPUTE m 82 

PROGRAH - DEHO COHPUTE DEC 81 

PROGRAH-DEMO COMPUTE JUL 81 

fWGRm - DEMO COMPUTE FEE: 82 

PR0GRM1-DEH0 COMPUTE DEC 81 

PROGRAM - DEND COtTUTE JW 81 

F-ROGRAM - DEMO COMPUTE FEB 81 

PROGRAH - DEHO COMPUTE NOV 8§ 

PROGRAH-DEHO CONFUTE M^R 82 

F-ROGRfW - GAfE COif DTE MAR 82 

PROGRAH - GAME COHPUTE JAN 82 

PROGRAH-GMC COMPUTE HAR 82 

PROGRAM - mE. COMPUTE JAN 82 

PROGRMf-GRM^ COHPUTE NOV 81 

PRQGRM1 - GRAPHICS COHPUTE FEB 82 

fWBRm - GRAFttrCS CCmJTE AUG 81 

PROGRAH - GRAPHICS COfiWE fik 81 

PROGRAH - NISC HACE JUL 82 

PR(KRAM - MISC ANALOG m 81 

PROGRAH - HISC COHPUTE JIM 81 

PROGRAH-HISC COHPUTE OCT 81 

F-ROGRAM - MISC COMPUTE NOV 80 

PROGRAH - HISC COHPUTE AUG 81 

PROGRW - HISC HACE NAY 82 

F-ROGRAM - MISC ANW.OG MAY 81 

PROGRMt - UTILITY CttPUTE JUN 81 

PROGRAH - UTILITY COMPUTE SEP 81 

PR0GRW1 - UTIQTY CtmJTE OCT 81 

PROGRAM - UTILITY COffUTE JAN 81 

PROGRAH - UTILITY CttPUTE OCT 81 

PROGRAM - UTILITY MACE FEE: 82 

F-ROGRAM - UTILITY MACE JAN 82 

PROGRAH - UTILITY COHPUTE JUN 81 

PROGRAH - UHLITY MACE NOV 81 

mxm - UTILITY COiff-UTE JUN 82 

fHOBm - UTILITY COHPUTE HAY 81 

PR-OGRAM - UTILITY COMPUTE ' NOV 81 

PROGRAM - UTILITY COMPUTE MAY 81 

PROGRAH - UTIQTY HACE DEC 81 

F-R«3RAM - UTIQTY Cmm. NOV 80 

PRKRAM - UTIQTY COMP-UTE MAR 81 

PROGRAH - UTIQTY MMjOG *4 



ATARI MAGAZINE ARTICLES (continued) 



TITLE AUTHOR SUBJECT MAGAZXNE ISSUE 



REVISION B ROH TEST 
SCREEN SME ROUTINE 
SUeROJTIiC TO AID DEBUG 
SUPEI^ONT 
SYS/STAT PROGRMt 
SYSTEM CLOCK FOR ATW?I 
TERMINAL mSLAm 
OTPLOT 

VARIABLE NAffi UTILITY 

3-D mm FAST m easy 

ACCURATE TIHBC IN BASIC 

ATARI DATA 

kim mm delays 

am TUTORIAL! PMW 10 

ATARI TUTMOjy.: PART 5 
BLINKING CHARACTERS 
CARD GANES Bt GR. 1 t 2 
CHOOSE YOlfl* JOYSTICK 
CLEARING HEHORY 
COLOR t LOCATE FOR PONG 
COLOR S SOUffl) WITH PADDLE 
CONDENSING DATA STATEHENT 
DDWIffMORY LANE 

[m mm lane 

easy reading of joyshck 

formahed ojtput in basic 

FO»toTTING INPUT 
GAME PROGMMONC 

GRAPH n ON THE ATARI 
GRAPHICS OF POAR FUNCTNS 
IttKE ATARI k m WISER 
MEHCffiY PROTECnON 
PRINT NW1ECRS MAKES ttNTS 

tmm develqphent 

READ KEYBOARD ON THE FLY 
RESTORING DATA ON dim 
STRING MiRAYS IN BASIC 
USE STRIWS FCK GRAPHICS 
USIMJ CONSOLE SHHCHES 
MttT TO DO IF NO JOYSnCK 

You'FE mim m/fis 

ATARI tutorial: PART 7 
BASENOTES IN BASIC 
ME mSIC WITH ATARI 
ADDING WICE TO F"RCKRAMS 
ADDING VOICE TMCK PART 2 
mi-lfPE GENER Fm DOS 
HELF' FOR CASSETTE OWNERS 
(MCEMORIM. 



ROSER 

TREM 

GREEN 

EiRAMIN 

HARTHAN 

ZIWERHAN 

eUTTERW3RTH 

BRANNtW 

HcGRAH 

HIA)^ 

NAVAS 

CRAIFORD 
CRAWFORD 

JMS 

SEmd 

LIM)SAY 

BRANNON 

GREENSPAN 

SCmEBMAN 

PATCHETT 

LEENON 

LEEMON 

LEEMIW 

ncniiMt 

WROBEL 

FREESE 

OCKERS 

NEIL 

vauDo 

Dnraiun 

CL«?K 

HALCC»1B 

HOFFi^M 

BRUUN 

FRIM<ER 

BRANNON 

BOOH 



SGHULNAN 

B^OM) 

FRASK 

WHITE 

C0L9CR 

VICTOR 

DOLEHAN 

POLONE 

PHILLIPS 

GIESE 



F-RCffiRAH 
PROQ^ 
PROGRAK 
F-ROGRAM 
PROGRAH 
PROGRAK 
PROGRAM 
PR0GRM1 
PROGRMi 
PRtERAM 
PROGRAH 
PROGRAK 
PRCKRAM 
PROGRAK 
PROGRAK 
PR0GRW1 
PROGRMi 
PROGRMi 
PROGRAM 
PROGRAH 
PROGRAH 
PWERAM 
PROGRAH 
PRQGRM1 

pfimm 

PROGRAH 
PROGRAH 
PRaa?AM 
PROGRAH 
PROGRAH 
F-RCCRAM 
F-ROGRAH 
PR0GRM1 
F-ROGRAH 

fvfxm 

PROGRAH 

PROGRAH 

PROGRAH 

PROGRAH 

PROGRAM 

PRDGRMt 

FiaKRAH 

MIND 

SOUND 

SOUND 

TAPES 
TAPES 

T^tf^S 
TM^S 



- UTILITY 

- UriQTY 

- UTILITY 

- UTILITY 

- UTDJTY 

- UTILITY 

- UTILITY 

- UTILITY 

- UTILITY 
TECHNIQUES 
TECHNIQUES 
TEtSMOUES 
TECHNIOES 
TECMIIOUES 
TECHKraUES 
TECHNIQUES 
TECHNIIKES 
TECHNIQUES 
TECWIQUES 
TEQMQUES 
TECHNIQUES 
TECHNIGWES 
TECHNIQUES 
TECHNIQUES 
TEQMQUES 
TECHNIQUES 
TECHNIQUES 
TECWIGIES 
TECHNIQUES 
TEDfilQUES 
TECffllQUES 
TECHNIQUES 
TEDtilQUES 
TECHNIQUES 
TECHNIQUES 
TEOMQUES 
TECHNIQUES 
TECltaQUES 
TECHNIOUES 
TECtMLQUES 
TECWOflUES 
TECHNIQUES 



MACE 

COHPUTE 

COKPUTE 

COJTUTE 

ANALOG 

COHPUIE 

MACE 

COHPUTE 

COfUTE 

Am.(:£ 

COHPUTE 

COKPUTE 

C(»1PUTE 

BYTE 

BYTE 

COMF'UTE 

COHPUTE 

COKPUTE 

COfffUTE 

COHPUTE 

COPUTE 

ccmiTE 
mx. 

HACE 

(tfCE 

COHPUTE 

CQIfUTE 

COMPUTE 

M^IC 

COHPUTE 

COMFDTE 

COHPUTE 

COKPUTE 

CimJTE 

COHPUTE 

COHPUTE 

CIMUTE 

COHPUTE 

COKPUTE 

omjTE 

COHPUTE 
ANALOG 

BYTE 

fmx 

KILOBAUD 

COMPUTE 

COHPUTE 

COKPUTE 

ANTIC 
HACE 



NJb 82 
HAR 82 
JUN 82 

JAN 82 

m 81 

AUG 82 
JJN 81 
NOV 81 
OCT 81 
*5 

82 
JUL 81 
NOV 81 
JUN 82 
JAN 82 
DEC 81 
NOV 80 
JUL 80 
FEB 82 
SEP 81 
FEB 81 
HAY 81 
DEC 81 
MJG 81 
FHi 82 
AUG 81 
NAR 81 

m 81 

JUN 82 
OCT 81 

SEP 80 

mi 81 

JUL 81 

m) 81 

JUL 81 
SEP 81 

AUG 81 
APR 81 
HAY 81 
JAN 81 
SEP 80. 
HAR 81 
MAR 82 
HAY 81 
JUK82 
JUL 80 
JUL 81 
OCT 81 
APR 82 
APR 82 



End of Part 11 
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338-6837 
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J erry Aamodt 
4148 Huhn 
Rochester, MI 48063 
574-1020 
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James Phillips 
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Chet Gonterman 
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Paris Ajo 
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I.A.C.E. 
P.O Box 2785 
Southfield, Ml 48037 




A.C.E. Membership Application 



$15.00 fM for 12 months* 

$20*00 after 12/31/82 
Renew NOH and SAUE! 



Name 
Street 
City_ 



Phone 



Company (if applicable) 

System Description 

Suggestions 



I can help with . . . 



State 



Zip Code 



Disk/Tape 



4V 



[ 3 NEW [ 1 RENEWAL 
If Renewal, MACE # 



*Make checks payable to; 
M.A.C.E. 



Date 



Amount 



□ Cash 

□ Check Number 



Coupon 

. Membership Card Number 
Expkes 



Announcins the best Error 
Free Personal Computer 
Diskette Money cein Buy. 



For Lc 


»SS. 


FLEXIBLE 




Dl/K 


CONTRpL 
DATA 



• Error Free 

• 1 year warranty 

• Hub ring installed 

• Write/Protect notch 

• Next day delivery 

$19.90/box of 10 

• No minimum order quantity 

• d>"or5V4" 

• Plus 2 Free BONUS DISKS/Box* 
*5i/4" sreciAL amy 

If you are a member of a user group or a school district please call for special 
terms on future offers. is the largest specialty supplier of magnetic media 
in the Midwest. We have the products that you want when you need them. 
Please take advantage of this introductory offer and call us now. 




OTIS 



TVansaction 
Storage Systems, Inc. 



MAGNETIC MEDIA SPECIALISTS 



CALL TOLL FREE 
1-800-521-5700 
1-800-482-4770 (Michigan) 
313-557-3036 (Detroit) 
312-922-0076 (Chicago) 
614-221-1788 (Columbus) 
513-621-1518 (Cincinnati) 
Telex 810-224-4646 



EXPECT A MIRACLE 



YES, is the magnetic media supplier that I have alwa^fs wanted 

Please send me ,8"n 5y4"D, 

Box Quantity 

I am interested. Please send me more information 
or call me at ( ) — 



.ea. 



Price 



For faster order entr^; call any of our toll-free or local numbers 

Company^ _ — 

Name Title 



Address 
City 



State. 



Zip. 



Amex/Master Card/Visa orders are accepted 



Expiration Date 

month year 



RITE WAY ENTERPRISES 



DISCOUNT 

Computer 
SOURCE 



TRUE KEYBOARD 



$ 



22027 MICHIGAN AVE. 
DEARBORN MI. 48124 
313-562-3178 



$ 



8262-12 MILE RD. 
WARREN MI. 48093 
313-751-2454 
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IMPORTANT DATED MATERIAL 



PLEASE DO NOT DELAY 

Printing and Bindery Servicts by • GRAPHiC ENTERPRISES, INC. Detroit. Michigan • 313-839-6800 
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